package com.sojson.util.id.impl;

import java.lang.management.ManagementFactory;
import java.net.Inet4Address;
import java.net.InetAddress;
import java.net.NetworkInterface;
import java.net.UnknownHostException;
import java.util.Random;

import org.apache.commons.lang3.RandomUtils;
import org.apache.commons.lang3.SystemUtils;

import com.sojson.util.StringUtil;

import lombok.extern.slf4j.Slf4j;

/**
 * @description: 原生雪花算法生成出来的id在低并发下存在分布不均的问题
 * 参考美团点评方案修改
 * @link https://github.com/Meituan-Dianping/Leaf/blob/master/leaf-core/src/main/java/com/sankuai/inf/leaf/snowflake/SnowflakeIDGenImpl.java
 * 只修改了下个毫秒的起始位置
 **/
public class SnowflakeIdUtilImpl {

    private final SnowFlake snowFlake;

    public SnowflakeIdUtilImpl() {
        this(getWorkId(), getDatacenterId());
    }

    public SnowflakeIdUtilImpl(long workid, long datacenterId) {
        snowFlake = new SnowFlake(workid,datacenterId);
    }

    /**
     * 生成DatacenterId
     */
    private static Long getDatacenterId() {
        //使用hostName生成
        try {
            String hostName = SystemUtils.getHostName();
            int[] ints = StringUtil.toCodePoints(hostName);
            int sums = 0;
            for (int i : ints) {
                sums = sums + i;
            }
            return (long)(sums % 32);
        } catch (Exception e) {
            // 失败就随机
            return RandomUtils.nextLong(0, 31);
        }
    }

    /**
     * 生成WorkId
     */
    private static Long getWorkId() {
        //使用IP生成
        try {
            String hostAddress = Inet4Address.getLocalHost().getHostAddress();
            int[] ints = StringUtil.toCodePoints(hostAddress);
            int sums = 0;
            for (int b : ints) {
                sums = sums + b;
            }
            return (long)(sums % 32);
        } catch (UnknownHostException e) {
            // 失败就随机
            return RandomUtils.nextLong(0, 31);
        }
    }

    @Slf4j
    static class SnowFlake {
        // 时间起始标记点，作为基准，一般取系统的最近时间（一旦确定不能变动）
        private final long twepoch = 1288834974657L;
        // 机器标识位数
        private final long workerIdBits = 5L;
        // 数据中心标识位数
        private final long datacenterIdBits = 5L;
        // 机器ID最大值
        private final long maxWorkerId = -1L ^ (-1L << workerIdBits);
        // 数据中心ID最大值
        private final long maxDatacenterId = -1L ^ (-1L << datacenterIdBits);
        // 毫秒内自增位
        private final long sequenceBits = 12L;
        // 机器ID偏左移12位
        private final long workerIdShift = sequenceBits;
        // 数据中心ID左移17位
        private final long datacenterIdShift = sequenceBits + workerIdBits;
        // 时间毫秒左移22位
        private final long timestampLeftShift = sequenceBits + workerIdBits + datacenterIdBits;

        private final long sequenceMask = -1L ^ (-1L << sequenceBits);
        /* 上次生产id时间戳 */
        private long lastTimestamp = -1L;
        // 0，并发控制
        private long sequence = 0L;

        private final long workerId;
        // 数据标识id部分
        private final long datacenterId;

        private final Random RANDOM = new Random();

        public SnowFlake(){
            this.datacenterId = getDatacenterId(maxDatacenterId);
            this.workerId = getMaxWorkerId(datacenterId, maxWorkerId);
        }
        /**
         * @param workerId
         *            工作机器ID
         * @param datacenterId
         *            序列号
         */
        public SnowFlake(long workerId, long datacenterId) {
            if (workerId > maxWorkerId || workerId < 0) {
                throw new IllegalArgumentException(String.format("worker Id can't be greater than %d or less than 0", maxWorkerId));
            }
            if (datacenterId > maxDatacenterId || datacenterId < 0) {
                throw new IllegalArgumentException(String.format("datacenter Id can't be greater than %d or less than 0", maxDatacenterId));
            }
            this.workerId = workerId;
            this.datacenterId = datacenterId;
        }
        /**
         * 获取下一个ID
         *
         * @return
         */
        protected synchronized long nextId() {
            long timestamp = timeGen();
            if (timestamp < lastTimestamp) {
                throw new RuntimeException(String.format("Clock moved backwards.  Refusing to generate id for %d milliseconds", lastTimestamp - timestamp));
            }

            if (lastTimestamp == timestamp) {
                // 当前毫秒内，则+1
                sequence = (sequence + 1) & sequenceMask;
                if (sequence == 0) {
                    // 当前毫秒内计数满了，则等待下一秒
                    // 每毫秒ms的自增长序列(sequence)都从0开始，到4095为止。如果到了4095，则重新从0开始循环（毫秒值也进入下一毫秒）
                    // 所以低并发下的sequence基本一致
                    // seq 为0的时候表示是下一毫秒时间开始对seq做随机
                    sequence = RANDOM.nextInt(10);
                    timestamp = tilNextMillis(lastTimestamp);
                }
            } else {
                // sequence = 0L;
                //如果是新的ms开始
                sequence = RANDOM.nextInt(10);
            }
            lastTimestamp = timestamp;
            // ID偏移组合生成最终的ID，并返回ID
            long nextId = ((timestamp - twepoch) << timestampLeftShift)
                    | (datacenterId << datacenterIdShift)
                    | (workerId << workerIdShift) | sequence;

            return nextId;
        }

        private long tilNextMillis(final long lastTimestamp) {
            long timestamp = this.timeGen();
            while (timestamp <= lastTimestamp) {
                timestamp = this.timeGen();
            }
            return timestamp;
        }

        private long timeGen() {
            return System.currentTimeMillis();
        }

        /**
         * <p>
         * 获取 maxWorkerId
         * </p>
         */
        protected long getMaxWorkerId(long datacenterId, long maxWorkerId) {
            StringBuffer mpid = new StringBuffer();
            mpid.append(datacenterId);
            String name = ManagementFactory.getRuntimeMXBean().getName();
            if (!name.isEmpty()) {
             /*
              * GET jvmPid
              */
                mpid.append(name.split("@")[0]);
            }
              /*
               * MAC + PID 的 hashcode 获取16个低位
               */
            return (mpid.toString().hashCode() & 0xffff) % (maxWorkerId + 1);
        }

        /**
         * <p>
         * 数据标识id部分
         * </p>
         */
        protected long getDatacenterId(long maxDatacenterId) {
            long id = 0L;
            try {
                InetAddress ip = InetAddress.getLocalHost();
                NetworkInterface network = NetworkInterface.getByInetAddress(ip);
                if (network == null) {
                    id = 1L;
                } else {
                    byte[] mac = network.getHardwareAddress();
                    id = ((0x000000FF & (long) mac[mac.length - 1])
                            | (0x0000FF00 & (((long) mac[mac.length - 2]) << 8))) >> 6;
                    id = id % (maxDatacenterId + 1);
                }
            } catch (Exception e) {
                log.error(" getDatacenterId: " + e.getMessage(), e);
            }
            return id;
        }
    }

    /**
     * 生成ID
     *
     * @return
     */
    public long generate() {
        return snowFlake.nextId();
    }

}
